﻿Public Class frmsetting


 

    Private Sub mmManufac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmManufac.Click
        With frmmanufactur
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub

    Private Sub mmsection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmsection.Click
        With frmsection
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub

    Private Sub mmserialnumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmserialnumber.Click
        If My.Settings.CurrentuserGroup <> 1 Then
            MsgBox("คุณไม่ได้รับสิทธิ์ในการเข้าถึงระบบงานนี้", MsgBoxStyle.Exclamation, "กรุณาติดต่อผู้ดูแลระบบ")
            Exit Sub
        End If
        With frmSerial
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub

    Private Sub mmCategory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmCategory.Click
        With frmcategory
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub

    Private Sub mmVendor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmVendor.Click
        With FrmVendor
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub



    Private Sub mmsetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmsetting.Click
        If My.Settings.CurrentuserGroup <> 1 Then
            MsgBox("คุณไม่ได้รับสิทธิ์ในการเข้าถึงระบบงานนี้", MsgBoxStyle.Exclamation, "กรุณาติดต่อผู้ดูแลระบบ")
            Exit Sub
        End If
    End Sub


    Private Sub mmsite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmsite.Click
        If My.Settings.CurrentuserGroup <> 1 Then
            MsgBox("คุณไม่ได้รับสิทธิ์ในการเข้าถึงระบบงานนี้", MsgBoxStyle.Exclamation, "กรุณาติดต่อผู้ดูแลระบบ")
            Exit Sub
        End If
        With frmsite
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub

    Private Sub ปดToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ปดToolStripMenuItem.Click
        Me.Close()

    End Sub

    Private Sub mmuser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmuser.Click
        With frmuser
            .MdiParent = Me
            .WindowState = FormWindowState.Maximized
            .Show()
        End With
    End Sub

    Private Sub frmsetting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class